home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
misc
/
dopus510.lha
/
DOpus511ita
/
Installer
next >
Wrap
Text File
|
1995-09-01
|
2KB
|
76 lines
; $VER: Install Opus5 Italian (01.09.95)
; Script to install the Italian catalog translation for Opus 5.11.
; Adapted Dr Greg Perry's Norsk version
; by Francesco Dipietromaria
;=============================================================================
; check if Directory Opus 5 is already installed
(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
(abort "Dovete prima installare Directory Opus 5.")
)
(set @default-dest "")
;=============================================================================
; install catalogs
(copyfiles
(source "Catalogs")
(dest "DOpus5:Catalogs")
(pattern "#?")
)
;=============================================================================
; install Italian version of buttons banks
(copyfiles
(source "Buttons")
(dest "DOpus5:Buttons")
(pattern "#?")
)
;=============================================================================
; make Italian lister menu the default
(if
(askbool
(prompt "La versione italiana del menu lister pop-up "
"è disponibile.\n\n"
"Volete installarla e rinominare quella vecchia come\n"
"'lister menu_old'?"
)
(help "Installa la versione italiana del lister pop-up standard ")
)
(
(rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
(copyfiles
(source "DOpus5:Buttons/lister menu_IT")
(dest "DOpus5:Buttons")
(newname "lister menu")
)
)
)
;=============================================================================
; make Italian user menu the default
(if
(askbool
(prompt "La versione italiana dell'user menu è disponibile.\n\n"
"Volete installarla e rinominare quella vecchia come\n"
"'user menu_old'."
)
(help "Installa la versione italiana dello user menu standard ")
)
(
(rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
(copyfiles
(source "DOpus5:Buttons/user menu_IT")
(dest "DOpus5:Buttons")
(newname "user menu")
)
)
)
(exit)